﻿Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Using frm As New Form1
            frm.ShowDialog()
        End Using
    End Sub

   
    Private Sub WysSkinUC1_RaiseSkinNameChange(ByVal skinName As System.String) Handles WysSkinUC1.SkinNameChange
        Me.Text = skinName
    End Sub

    Private Sub WysSkinUC1_InitSkin(ByRef skinName As System.String) Handles WysSkinUC1.InitSkinName
        skinName = "vista"
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using frm As New Form2
            frm.ShowDialog()
        End Using
    End Sub

    Private Sub WysSkinUC1_SkinTextAndImageStream(ByVal 菜单 As wys.skin.wysSkinUC.菜单型, ByRef title As System.String, ByRef image As System.IO.Stream) Handles WysSkinUC1.SkinTextAndImageStream

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.WysSkinUC1.ChangeSkin("OneCyan")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.WysSkinUC1.是否使用皮肤功能 = False
    End Sub
End Class
